home *** CD-ROM | disk | FTP | other *** search
/ Merciful 5 / Merciful - Disc 5.iso / software / p / pcqpascalv1.2d.lha / Examples2 / AutoReq / autoreq.p
Encoding:
Text File  |  1997-05-06  |  1.4 KB  |  49 lines
  1. program AutoReqDemo;
  2.  
  3. { ****************************************************************************
  4.  
  5.     (P) 12/1992 by Diesel - dieses Programm und der zugehörige
  6.     Quellcode sind Public Domain - macht damit, was Ihr wollt.
  7.     Is' auch nur ein kleines Beispielprogramm ...
  8.  
  9.   **************************************************************************** }
  10.  
  11.  
  12. {$I "include:intuition/intuition.i" }
  13. {$I "include:libraries/dos.i" }
  14.  
  15. Const    { Texte deklarieren, die im Req. erscheinen sollen - Wichtig :
  16.       es handelt sich um IntuiText-Records !!!  }
  17.  
  18.     TopText : IntuiText = (2,3,jam1,1,1,NIL,"Gefällt Dir der Requester ?   :-)",NIL);
  19.     PosText : IntuiText = (AutoFrontPen,AutoBackPen,AutoDrawMode,AutoLeftEdge,AutoTopEdge,NIL,"Na logo",NIL);
  20.     NegText : IntuiText = (AutoFrontPen,AutoBackPen,AutoDrawMode,AutoLeftEdge,AutoTopEdge,NIL,"Also, ich weiß nicht so recht ...",NIL);
  21.  
  22.  
  23. Var
  24.     ok : Boolean;
  25.  
  26. Begin
  27.  
  28.     ok:=AutoRequest(NIL,    { sonst eigener WindowPtr }
  29.             Adr(TopText),
  30.             Adr(PosText),
  31.             Adr(NegText),
  32.             0,    { IDCMP-Flags für pos. Fall }
  33.             0,    { IDCMP-Flags für neg. Fall }
  34.             227,    { wieso grade 227 ? Nur so .. }
  35.             35);
  36.  
  37.     { Ihr könnt bei den IDCMP-Flags auch was anderes angeben.
  38.       Diese Flags würden Eurem Programm dann gesendet. Praktisch
  39.       z.B. bei CloseWindow . }
  40.  
  41.  
  42.     If ok=TRUE then write("...hat Geschmack,der Mensch !\n")
  43.            else write("Meine Güte, verwöhnt, was ?!?!!\n");
  44.  
  45.  
  46.     Delay(50);
  47.  
  48. End.
  49.